home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: Games / PC-SIG Games (PC-SIG).iso / 1314 / SCRAMBLE.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-02-01  |  498 b   |  17 lines
  1. 10 '---------Scramble.Bas------------
  2. 20 'A Primitive Encryption Program
  3. 30 'Use Unscram.Bas to restore the
  4. 40 'encrypted file.
  5. 50 '------------------------------
  6. 60 INPUT "What is the name of the file to be scrambled";N$
  7. 70 INPUT "What will be the new name for the scrambled file";O$
  8. 80 OPEN "i",1,N$
  9. 90 OPEN "o",2,O$
  10. 100 IF EOF(1) THEN 130
  11. 110 PRINT#2,CHR$(ASC(INPUT$(1,#1))+128);
  12. 120 GOTO 100
  13. 130 CLOSE #1,#2: NAME N$ AS "killfile":KILL "killfile"
  14. 140 PRINT
  15. 150 END
  16. 160 'SYSTEM
  17.